home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
L' Effet Pommier 3
/
L'Effet Pommier - Volume 03.iso
/
Programmation
/
Gooey1.3.1
/
C Templates
/
Links
< prev
next >
Wrap
Text File
|
1993-11-11
|
5KB
|
154 lines
$$Loop Link.Open
$$if IsWindow
Open_$Worksheet.name$(); /* Open this window */
$$endif
$$if IsModalDialog
MPD_$Worksheet.name$(); /* Open this modal dialog */
$$endif
$$if IsModelessDialog
Open_$Worksheet.name$(); /* Open this modeless dialog */
$$endif
$$if IsAlert
PA_$Worksheet.name$(); /* Open this alert */
$$endif
$$EndLoop
$$Loop Link.Close
$$if IsWindow
Add_UserEvent(UserEvent_Close_Window,ResW_$Worksheet.name$,0,0,nil); /* Close this window */
$$endif
$$if IsModelessDialog
Add_UserEvent(UserEvent_Close_Window,ResD_$Worksheet.name$,0,0,nil); /* Close this modeless dialog */
$$endif
$$EndLoop
$$Loop Link.SysBeep
SysBeep(40); /* Do a SysBeep */
$$EndLoop
$$Loop Link.Sound
Play_The_Sound(ResS_$Sound.name$); /* Play a sound */
$$EndLoop
$$Loop Link.MenuEnable
EnableItem(Menu_$Menu.name$,0); /* Enable a menu list */
$$EndLoop
$$Loop Link.MenuDisable
DisableItem(Menu_$Menu.name$,0); /* Disable a menu list */
$$EndLoop
$$Loop Link.ItemEnable
EnableItem(Menu_$Menu.name$,MItem_$MenuItem.name$); /* Enable a menu item */
$$EndLoop
$$Loop Link.ItemDisable
DisableItem(Menu_$Menu.name$,MItem_$MenuItem.name$); /* Disable a menu item */
$$EndLoop
$$Loop Link.ItemCheck
CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,true); /* Check a menu item */
$$EndLoop
$$Loop Link.ItemUncheck
CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,false); /* Uncheck a menu item */
$$EndLoop
$$Loop Link.ItemToggle
GetItemMark(Menu_$Menu.name$,MItem_$MenuItem.name$,&tempChar); /* Toggle a menu item from checked to unchecked or other way */
if (tempChar == 0)
CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,true); /* Check a menu item */
else
CheckItem(Menu_$Menu.name$,MItem_$MenuItem.name$,false); /* Uncheck a menu item */
$$EndLoop
$$Loop Link.PageSetup
PageSetup(); /* Do Printing PageSetup */
$$EndLoop
$$Loop Link.Print
Print_The_Data(); /* Do Printing */
$$EndLoop
$$Loop Link.FileOpen
Open_The_File(); /* Do file open */
$$EndLoop
$$Loop Link.FileSave
Save_The_File(); /* Do file save */
$$EndLoop
$$Loop Link.VolumeSelect
Select_Volume(); /* Select a volume */
$$EndLoop
$$Loop Link.Check
$$if IsWindow
SetCtlValue(theWS->Ctrl_$Control.name$,1); /* Set the checkbox */
theWS->Value_$Control.name$ = 1;
$$endif
$$if IsDialog
GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect); /* Get the item handle */
CItem = (ControlHandle)DItem; /* Change dialog handle to control handle */
SetCtlValue(CItem,1);
Rec_$Worksheet.name$.Value_$Control.name$ = 1;
$$endif
$$EndLoop
$$Loop Link.Uncheck
$$if IsWindow
SetCtlValue(theWS->Ctrl_$Control.name$,0); /* Clear the checkbox */
theWS->Value_$Control.name$ = 0;
$$endif
$$if IsDialog
GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect); /* Get the item handle */
CItem = (ControlHandle)DItem; /* Change dialog handle to control handle */
SetCtlValue(CItem,0);
Rec_$Worksheet.name$.Value_$Control.name$ = 0;
$$endif
$$EndLoop
$$Loop Link.Radio
$$if IsWindow
Do_A_Checkbox(theWS,theWS->Ctrl_$Control.name$); /* Select this radio */
$$endif
$$if IsModalDialog
SetCtlValue(CItem,1);
Rec_$Worksheet.name$.Value_$Control.name$ = 1; /* Set the current Radio value */
$$Loop RadioGroup
ClearTheRadio(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&Rec_$Worksheet.name$.Value_$Control.name$);
$$EndLoop RadioGroup
$$endif
$$if IsModelessDialog
myEvent.what = mouseDown;
Do_$Worksheet.name$(&myEvent,Rec_$Worksheet.name$.theDialog,ResD_$Control.name$); /* Select this radio */
$$endif
$$EndLoop
$$Loop Link.Hide
$$if IsWindow
HideControl(theWS->Ctrl_$Control.name$); /* Hide a control */
$$endif
$$if IsDialog
GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect); /* Get the item handle */
CItem = (ControlHandle)DItem; /* Change dialog handle to control handle */
HideControl(CItem); /* Hide a control */
$$endif
$$EndLoop
$$Loop Link.Show
$$if IsWindow
ShowControl(theWS->Ctrl_$Control.name$); /* Show a control */
$$endif
$$if IsDialog
GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect); /* Get the item handle */
CItem = (ControlHandle)DItem; /* Change dialog handle to control handle */
ShowControl(CItem); /* Show a control */
$$endif
$$EndLoop
$$Loop Link.Dim
$$if IsWindow
HiliteControl(theWS->Ctrl_$Control.name$,255); /* Dim, disable, a control */
theWS->Enable_$Control.name$ = false;
$$endif
$$if IsDialog
GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect); /* Get the item handle */
CItem = (ControlHandle)DItem; /* Change dialog handle to control handle */
HiliteControl(CItem,255); /* Dim, disable, a control */
Rec_$Worksheet.name$.Enable_$Control.name$ = false;
$$endif
$$EndLoop
$$Loop Link.Undim
$$if IsWindow
HiliteControl(theWS->Ctrl_$Control.name$,0); /* Undim, enable, a control */
theWS->Enable_$Control.name$ = true;
$$endif
$$if IsDialog
GetDItem(Rec_$Worksheet.name$.theDialog,ResD_$Control.name$,&DType,&DItem,&tempRect); /* Get the item handle */
CItem = (ControlHandle)DItem; /* Change dialog handle to control handle */
HiliteControl(CItem,0); /* Undim, enable, a control */
Rec_$Worksheet.name$.Enable_$Control.name$ = true;
$$endif
$$EndLoop